home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / musicalc demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  141 lines
  1. 2 poke56325,5 :in=49564:de=49575:iffl=99then420
  2. 3 gosub9000:iffl=0thenfl=1:gosub50:gosub50000:load"h",8,1
  3. 4 iffl=1thenfl=2:poke820,1:load"s",8,1
  4. 5 iffl=2thenfl=3:load"h1",8,1
  5. 6 iffl=3thenfl=4:load"h2",8,1
  6. 7 iffl=4thenfl=10:load"c",8,1
  7. 8 ifsd=0thensd=1:gosub10000
  8. 22 iffl=10thenfl=11:q$=".v1":goto35000
  9. 25 iffl=11thenfl=12:q$=".v2":goto35010
  10. 26 iffl=12thenfl=13:q$=".v3":goto35010
  11. 27 :
  12. 30 kh=128:goto90
  13. 50 a=13*4096+4*256
  14. 55 fori=a+24toastep-1:pokei,0:next:pokea+23,8:pokea+3,3:pokea+10,13:pokea+17,3
  15. 80 pokea+24,15:pokea+23,8:return
  16. 90 poke56325,tm(ss)
  17. 91 restore:fori=0toss*9:readl1:next:gosub62000
  18. 97 tr=7630:poketr,0:poketr+1,0:poke65333,127
  19. 99 ifpeek(821)=66thenfori=0to5000:next:poke53265,peek(53265)and239
  20. 100 sys(12*4096):poke56333,129
  21. 400 ifpeek(788)<>49then400
  22. 415 poke53265,peek(53265)or16:sysde
  23. 420 i=peek(820):onigoto425,430,450,460,470,480,490,500,510,520,530,540,550
  24. 425 fl=99:poke820,2
  25. 430 rem
  26. 435 :
  27. 440 sd=2:gosub10000:fl=10:poke820,3:goto22
  28. 450 fl=99:sd=1:gosub10000:poke820,4:load"p1",8,1
  29. 460 print"[147]":poke53270,8:sysin:fl=99:poke820,5:poke53280,0:load"x",8,1
  30. 470 poke820,6:fl=10:goto22
  31. 480 goto63500
  32. 520 :
  33. 521 :
  34. 530 :
  35. 533 :
  36. 540 :
  37. 550 :
  38. 1000 print"[147][144]":poke53280,1:poke53281,8
  39. 1010 p=12*4096+256:in=p+156:cl=p+101:de=p+167
  40. 1012 ar=p+128:ca=p+137:br=p+217:cb=p+226
  41. 1100 pokecb,3:sysbr:pokeca,11*16+4:sysar:poke53265,43
  42. 1200 sysin:sys7680+kh:sysde:print"[147]":return
  43. 2000 print"[147][144]":poke53280,1:poke53281,8:kh=0
  44. 2010 p=12*4096+256:in=p+156:cl=p+101:de=p+167:ar=p+128:ca=p+137:br=p+217:cb=p+226
  45. 2110 pokeca,0:sysar:syscl:poke7757,228:pokecb,0:sysbr:poke53280,0:goto1200
  46. 9000 ss$(0)="f0":tm(0)=60:ss$(5)="i8":tm(5)=33:ss$(2)="e0":tm(2)=23
  47. 9022 ss$(6)="b0":tm(6)=23:ss$(4)="t0":tm(4)=32:ss$(1)="i4":tm(1)=37
  48. 9028 ss$(3)="j0":tm(3)=23:return
  49. 10000 poke53281,1:poke53280,1:poke53272,23:poke53265,27
  50. 10010 onsdgosub10100,10200,10300,10400,10500:return
  51. 10100 print"[147]               [205]usi[195]alc[145]tm"
  52. 10102 print"[205]akes [205]usic [208]lay on your [195]ommodore 64[145]tm"
  53. 10104 print"[205]usi[195]alc includes both computer programs";
  54. 10106 print"and optional equipment for your musical"
  55. 10108 print"enjoyment."
  56. 10109 print"[205]usi[195]alc 1: [211]ynthesizer & [211]equencer"
  57. 10110 print"is the heart of the system.  [212]his turns"
  58. 10112 print"your computer into a musical instrument.";
  59. 10114 print"[208]lay along with a song or write your"
  60. 10116 print"own.  [196]evelop your own instrument sounds";
  61. 10118 print"and record the music you create."
  62. 10172 gosub 11000:return
  63. 10200 print"[147]               [205]usi[195]alc[145]tm"
  64. 10202 print"           [205]akes [205]usic [208]lay"
  65. 10204 print"[215]elcome to an entirely new way to make"
  66. 10206 print"music.  [205]usi[195]alc, the [195]reative [205]usic"
  67. 10208 print"[211]ystem, puts exciting new musical"
  68. 10210 print"experiences at everyone's fingertips."
  69. 10212 print"[215]hile easy to learn and enjoy, [205]usi[195]alc"
  70. 10214 print"has been designed to meet the needs of"
  71. 10216 print"the professional musician.  [206]o matter"
  72. 10218 print"what your level of musical expertise,"
  73. 10220 print"novice or expert, [205]usi[195]alc will make"
  74. 10222 print"music come alive for you.
  75. 10240 [141] 11000:[142]
  76. 10300 [153]"load               (NULL)usilenalcontm"
  77. 10302 [153]"           (NULL)akes (NULL)usic (NULL)lay"
  78. 10304 [153]"(NULL)usilenalc is the ideal system for"
  79. 10306 [153]"playing, composing, and experiencing"
  80. 10308 [153]"music."
  81. 10310 [153]"       (NULL)usilenalc 2  -  (NULL)core(NULL)riter"
  82. 10312 [153]"(NULL)orks with the (NULL)ynthesizer & (NULL)equencer"
  83. 10314 [153]"to change your musical improvisations"
  84. 10316 [153]"into musical notation.  (NULL)ith the "
  85. 10318 [153]"addition of an optional graphics printer";
  86. 10320 [153]"you can turn your own original"
  87. 10322 [153]"compositions into sheet music."
  88. 10340 [141] 11000:[142]
  89. 10400 [153]"load               (NULL)usilenalcontm"
  90. 10402 [153]"           (NULL)akes (NULL)usic (NULL)lay"
  91. 10404 [153]"right$t's a fun and educational way to"
  92. 10406 [153]"introduce your children to music and"
  93. 10408 [153]"computers.  right$t's an absorbing new"
  94. 10410 [153]"musical tool for the professional."
  95. 10412 [153]"     (NULL)usilenalc 3  - (NULL)eyboard (NULL)aker"
  96. 10414 [153]"valnables you to create your own custom"
  97. 10416 [153]"keyboards.  lenomes with over 30 preset"
  98. 10418 [153]"keyboard scales from around the world"
  99. 10420 [153]" - everything from classical to rock."
  100. 10440 [141] 11000:[142]
  101. 10500 [153]"load               (NULL)usilenalcontm"
  102. 10502 [153]"(NULL)akes (NULL)usic (NULL)lay on your lenommodore 64ontm"
  103. 10504 [153]" (NULL)usilenalc 1  - (NULL)ynthesizer & (NULL)equencer"
  104. 10506 [153]" (NULL)usilenalc 2  - (NULL)core(NULL)riter"
  105. 10508 [153]" (NULL)usilenalc 3  - (NULL)eyboard (NULL)aker"
  106. 10510 [153]" (NULL)usilenalc (NULL)emplate 1"
  107. 10512 [153]   "  - atnfrican and (NULL)atin (NULL)hythms"
  108. 10514 [153]" (NULL)usilenalc (NULL)emplate 2"
  109. 10516 [153]   "  - (NULL)ew (NULL)ave and (NULL)ock"
  110. 10520 [153]" left$it str$isks"
  111. 10522 [153]"  - (NULL)ecordings to play on your computer"
  112. 10540 [141]11000:[142]
  113. 11000 [153]"";
  114. 11010 [153]"     (c)1983 waveform corporation"
  115. 11100 [142]
  116. 35000 ss[178]ss[170]1:[139]ss[177]6[167]ss[178]0
  117. 35002 z$[178]ss$(ss)
  118. 35010 a$[178]z$[170]q$:[147] a$,8,1
  119. 35020 :
  120. 50000 [151]53280,1:[151]53281,1:[153]"loadstop";:[151]53272,23
  121. 51000 [153] "load              (NULL)usilenalcontm"
  122. 51010 [153]"         (NULL)usic str$emonstration"
  123. 51020 [153]  "     (c)1983 waveform corporation":[142]
  124. 60000 [151]53265,0:[151]53270,[194](53270)[175]239:[158]in:[129]i[178]0[164]11000:[130]:[142]
  125. 62000 a[178]54272:[135]l1,l2,l3,l4,l5,l6:[151]a[170]5,l1:[151]a[170]6,l2:[151]a[170]12,l3:[151]a[170]13,l4
  126. 62010 [151]a[170]19,l5:[151]a[170]20,l6
  127. 62020 [135]l1,l2,l3:[151]51502,l1[170]1:[151]51503,l1:[151]51509,l2[170]1:[151]51510,l2
  128. 62030 [151]51516,l3[170]1:[151]51517,l3:[142]
  129. 63000 [131]0,42,222,42,222,42,222,32,32,32,56,206,56,206,250,0,64,64,0,46,237,44
  130. 63002 [131]174,44,174,32,32,32,42,207,42,207,42,207,32,32,32,20,89,57,176,57,176
  131. 63004 [131]64,16,16,56,206,56,206,250,0,64,32,0,41,255,40,125,40,125,16,32,64
  132. 63500 [153]"loadwould you like to hear it again?"
  133. 63502 [151]198,0:[146]198,1:[161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167][151]53280,[187](1)[172]15:[137]6
  134. 63503 [139]k$[178]"n"[167]63510
  135. 63504 fl[178]10:[151]820,1:ss[178]0:[141]50000:[137]22
  136. 63506 :
  137. 63510 [143]    connect back
  138. 63512 [151]56325,60
  139. 63520 [153]"loadload"[199](34)"hello"[199](34)",8":[153]"run"
  140. 63522 [151]631,13:[151]632,13:[151]198,2:[128]
  141.